home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
sal100.zip
/
MERGE.SRC
< prev
next >
Wrap
Text File
|
1994-11-14
|
437b
|
25 lines
int i;
int j;
int gap;
int k;
char x;
char a[5];
a[0] = 9; a[1] = 5; a[2] = 3; a[3] = 2; a[4] = 1;
for (k=0; k < 5; k++)
{
gap = a[k];
for (i=gap; i < ARRAYSIZE; i++)
{
x = GetNumber(i);
for (j=i-gap; x < GetNumber(j) && j >= 0; j=j-gap)
{
SetNumber(j+gap,GetNumber(j));
}
SetNumber(j+gap,x);
}
}